home *** CD-ROM | disk | FTP | other *** search
/ Loadstar 101 / 101.d81 / text printer / text printer.0829 / text printer.a7ae (.txt)
Encoding:
Commodore BASIC  |  1992-01-01  |  49.9 KB  |  100 lines
  1. 5 poke53281,0:poke53280,0:print"[147][159]"
  2. 10 poke55,.:poke56,64:clr
  3. 11 dv=peek(186):ifdv<8thendv=8
  4. 12 rem sys57812"c-stringer $c400",dv,0:poke780,0:poke781,0:poke782,196:sys65493
  5. 16 rem sys57812"tp1990.o",dv,0:poke780,0:poke781,0:poke782,192:sys65493
  6. 18 rem sys57812"reader $c800",dv,0:poke780,0:poke781,0:poke782,200:sys65493
  7. 110 q$=chr$(34):c=54272
  8. 115 tp$="[147][150]    [212] [197] [216] [212]   [208] [210] [201] [206] [212] [197] [210]   1 9 9 2"
  9. 120 dim na$(288),le$(288),pc%(46)
  10. 130 printtp$:printtab(10)"by the [204][207][193][196][211][212][193][210] [196]udes"
  11. 140 print"[159]  [201]nsert the disk with the "q$"t."q$" [159]files"
  12. 145 printtab(11)"and press [211][208][193][195][197][154]."
  13. 150 geta$:ifa$<>" "then150
  14. 160 printtp$:print"[159][210]eading all "q$"prg"q$" [159]files with "q$"t."q$" [159]names."
  15. 180 j=0:sys50176,"$:t.*",dv
  16. 182 ifst<>64theninput#3,le$(j),na$(j),a$:j=j+1:sys50179:goto182
  17. 190 printtp$
  18. 225 ifj=2thenprint"[159] [212]here are no "q$"t."q$" [159]files on this disk.":goto1990
  19. 230 print"[158][176][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][174][145]"
  20. 231 printtab(20-(len(na$(0))/2)-1)"[179][129]"na$(0)"[158][171]"
  21. 232 fori=1toj-2
  22. 234 ifi/2<>int(i/2)thenprint"[158][221] [154]"na$(i);:goto237
  23. 236 printtab(21)"[154]"na$(i)tab(38)"[158][221]"
  24. 237 next:ifi/2=int(i/2)thenprinttab(38)"[158][221]"
  25. 238 print"[173][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][192][189]"
  26. 240 k=1:i=1
  27. 245 poke214,21:print:print" [195][210][211][210] keys[159] select  [211][208][193][195][197] [159]toggle  [193] [159]all"
  28. 247 print" [208] [159]print highlighted files  [206][159] new disk"
  29. 248 print"    [214] [159]view pointed-at file   [209][159] quit"
  30. 250 poke214,k+2:print:ifi/2<>int(i/2)thenprinttab(1)"[153]>[145]":poke198,0
  31. 251 ifi/2=int(i/2)thenprinttab(20)"[153]>[145]":poke198,0
  32. 260 geta$:ifa$=""then260
  33. 261 printtab(-1*(i/2<>int(1/2))-19*(i/2=int(i/2)))" [145]"
  34. 263 ifa$="[145]"thenk=k-1:i=i-2:ifk<1thenk=int((j-1)/2):i=2*k+(i/2<>int(i/2))
  35. 264 ifa$=""thenk=k+1:i=i+2:ifk>int((j-1)/2)thenk=1:i=k-(i/2=int(i/2))
  36. 265 ifa$=""theni=i+1:ifi/2<>int(i/2)theni=i-2
  37. 266 ifa$="[157]"theni=i-1:ifi/2=int(i/2)theni=i+2
  38. 267 ifa$="q"then2000
  39. 268 ifa$="p"then300
  40. 269 ifa$="n"thenrun11
  41. 270 ifa$="v"andi<=j-2thensys51200,na$(i),"[202][197][198][198]'[211] [212][197][216][212] [210][197][193][196][197][210] 1991":goto250
  42. 271 ifa$<>"a"then280
  43. 272 print"":fori=1toj-2
  44. 273 ifpc%(i)=0andi/2<>int(i/2)thenprinttab(2)""na$(i)"[146]";:pc%(i)=1:goto279
  45. 275 ifpc%(i)=0andi/2=int(i/2)thenprinttab(21)""na$(i)"[146]":pc%(i)=1:goto279
  46. 276 ifpc%(i)andi/2<>int(i/2)thenprinttab(2)"[154]"na$(i);:pc%(i)=0:goto279
  47. 277 ifpc%(i)andi/2=int(i/2)thenprinttab(21)"[154]"na$(i):pc%(i)=0
  48. 278 ifpc%(i)thenprinttab(13)"[154]"na$(i):pc%(i)=0
  49. 279 next:goto240
  50. 280 ifa$<>" "then250
  51. 282 ifpc%(i)=0andi/2<>int(i/2)thenprinttab(2)""na$(i)"[146]";:pc%(i)=1:goto250
  52. 283 ifpc%(i)=0andi/2=int(i/2)thenprinttab(21)""na$(i)"[146]":pc%(i)=1:goto250
  53. 284 ifpc%(i)andi/2<>int(i/2)thenprinttab(2)"[154]"na$(i);:pc%(i)=0:goto250
  54. 285 ifpc%(i)andi/2=int(i/2)thenprinttab(21)"[154]"na$(i):pc%(i)=0:goto250
  55. 300 fori=1toj:ifpc%(i)theni=j:next:goto302
  56. 301 next:goto250
  57. 302 sys51200,"":gosub1000:sys51200,"":ifa$="4"then250
  58. 303 fori=22to24:poke781,i:sys59903:next
  59. 304 poke214,22:print:print"       [154]([208][154])ause   ([195][154])ontinue   ([211][154])top"
  60. 305 open4,4,7:fori=1toj:ifpc%(i)=0then380
  61. 306 poke214,i+2:print:print"[153][210]eading[145]"
  62. 310 sys57812na$(i),8,0:poke780,0:poke781,0:poke782,64:sys65493
  63. 320 poke(peek(174)+256*peek(175)),0
  64. 330 print"[153][208]rinting[145]"
  65. 335 print#4,na$(0);
  66. 340 iffl=1thensys49152,16384:goto360
  67. 345 iffl=2thensys49158,16384:goto360
  68. 350 iffl=3thensys49155,16384
  69. 360 print"[153]        [145]"
  70. 380 nexti:close4:goto2000
  71. 1000 print"[147][159]"tp$
  72. 1092 print"[155]    [205]ake sure your printer is on-line"
  73. 1094 print" and the print head is set to the top"
  74. 1096 print" of a page."
  75. 1100 print"  [159](1[159]) [211]ingle 38-character column with"
  76. 1105 print"      a left margin of 24."
  77. 1110 print"  [159](2[159]) [211]ingle 65-character column with"
  78. 1115 print"      a left margin of 10."
  79. 1120 print"  [159](3[159]) [212]wo 38-character columns with"
  80. 1125 print"      a left margin of 0."
  81. 1127 print"  [159](4[159]) [210]eturn to previous screen."
  82. 1130 print"[155]            [212]ake your pick."
  83. 1140 geta$:ifa$<"1"ora$>"4"then1140
  84. 1150 fl=val(a$)
  85. 1160 return
  86. 1990 fort=1to2000:next
  87. 2000 print"[147]"
  88. 2002 print"  [211][208][193][195][197][159]  do another disk"
  89. 2005 print"  [210][197][212][213][210][206][159] head back to [204][207][193][196][211][212][193][210] [194]riefs"
  90. 2010 poke198,.
  91. 2020 geta$:ifa$<>" "anda$<>chr$(13)then2020
  92. 2030 ifa$=" "thenrun110
  93. 2040 fori=8to9:open15,i,15,"r0:ls briefs=ls briefs":input#15,er:close15
  94. 2050 ifer=63thendv=i:i=9:next:goto2060
  95. 2055 next:print"[147]":end
  96. 2060 print"[147][144]load"q$"ls briefs"q$","dv
  97. 2070 print"run"
  98. 2080 poke631,13:poke632,13:poke198,2:end
  99. 10000 open15,8,15,"s0:text printer":close15:save"text printer",8:end
  100.